home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / KOALAP.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.4 KB  |  38 lines
  1. 2 IFF=0THENF=1:PRINT"[147]LOADING DATA...":FORT=50152TO51032:READA:POKET,A:NEXT
  2. 4 IFF=1THENF=2:GOSUB38
  3. 6 IFF=2THENF=3:NM$=A$:GOSUB700:LOADNM$,8,1
  4. 8 BANK=1:SCNOFFSET=1:COLOFFSET=7:POKE56576,(PEEK(56576)AND252)OR(3-BANK):POKE53265,PEEK(53265)OR32:POKE53272,(COLOFFSET*16+SCNOFFSET*8):POKE53270,PEEK(53270)OR16:FORI=23552TO24551:POKEI,PEEK(I+9024):NEXTI:FORI=55296TO56295:POKEI,PEEK(I-21720):NEXTI:A=PEEK(34576):POKE53280,A:POKE53281,A
  5. 24 GETK$:IFK$=""THEN24
  6. 26 IFK$="P"THEN54
  7. 28 IFK$="V"THENF=1:POKE56576,199:POKE53265,27:POKE53270,200:POKE53272,21:GOTO2
  8. 30 IFK$="Q"THEN34
  9. 32 GOTO24
  10. 34 POKE56576,199:POKE53265,27:POKE53270,200:POKE53272,21:POKE53280,14:POKE53281,6:END
  11. 38 CR$=" [146][157] [157]":PRINT"[147][154]KOALA DUMP FOR MPS-801,803,1525":PRINT"PRESS [P]RINT, [V]IEW ANOTHER OR [Q]UIT":POKE53280,6:POKE53281,6:PRINT"ENTER FILENAME - '*' TO APPEND [193][146]":PRINT"[> ";:B=1:A$=""
  12. 44 GETB$:IFB$=""THENPRINTCR$;:GOTO44
  13. 45 IFB=16THENRETURN
  14. 46 IFB$="*"THENPRINT"[193][146]";:B$=CHR$(129)
  15. 48 IFB$=CHR$(20)ANDB<=1THENB$="":B=1:GOTO44
  16. 49 IFB$=CHR$(20)THENA$=LEFT$(A$,LEN(A$)-1):PRINTCHR$(20);:B=B-1:GOTO44
  17. 50 IFB$=CHR$(13)THENRETURN
  18. 52 PRINT"";B$;:A$=A$+B$:B=B+1:GOTO44
  19. 54 POKE631,51:POKE632,13:POKE633,53:POKE634,52:POKE635,13:SYS50152:POKE56576,199:POKE53265,27:POKE53270,200:POKE53272,21:F=1:GOTO2
  20. 56 DATA173,17,208,41,32,208:DATA3,76,144,196,173,0:DATA221,41,3,73,3,74:DATA106,106,133,4,133,5:DATA173,24,208,41,8,240:DATA6,165,4,9,32,133:DATA4,173,24,208,41,240:DATA74,74,101,5,133,5:DATA76,182,196,13,69,78:DATA84,69,82,32,66,73:DATA84,32,77,65,80,32:DATA66,76,79,67,75,32
  21. 80 DATA78,85,77,66,69,82:DATA32,40,48,45,55,41:DATA32,0,13,69,78,84:DATA69,82,32,67,79,76:DATA79,82,32,66,76,79:DATA67,75,32,78,85,77:DATA66,69,82,32,40,48:DATA45,54,51,41,32,0:DATA255,255,0,64,235,223:DATA66,26,189,229,90,26:DATA239,191,16,64,181,229:DATA255,191,74,26,235,215
  22. 104 DATA90,90,20,32,165,229:DATA20,40,76,72,178,72:DATA32,204,255,169,4,32:DATA195,255,104,76,59,164:DATA169,27,160,196,32,30:DATA171,32,159,198,201,8:DATA176,226,74,106,106,106:DATA133,4,169,62,160,196:DATA32,30,171,32,159,198:DATA201,64,176,206,10,10:DATA133,5,32,204,255,169
  23. 126 DATA0,32,189,255,169,4:DATA170,160,0,32,186,255:DATA32,192,255,176,184,162:DATA4,32,201,255,176,177:DATA169,8,32,210,255,32:DATA139,198,169,0,133,108:DATA133,109,133,106,133,107:DATA169,0,133,251,133,252:DATA133,102,169,3,32,225:DATA198,165,6,133,2,165:DATA252,74,165,251,106,133
  24. 148 DATA3,169,199,56,229,3:DATA133,3,169,0,133,99:DATA133,105,165,3,41,248:DATA133,103,10,38,105,10:DATA38,105,101,103,144,2:DATA230,105,10,38,105,10:DATA38,105,10,38,105,133:DATA103,165,3,41,7,101:DATA103,133,103,144,2,230:DATA105,165,2,41,252,10:DATA38,99,101,103,133,253
  25. 170 DATA165,105,101,99,101,4:DATA133,254,120,165,1,72:DATA169,0,133,1,160,0:DATA177,253,133,101,104,133:DATA1,88,165,2,41,3:DATA73,3,10,168,240,5:DATA70,101,136,208,251,169:DATA0,133,99,165,108,56:DATA233,224,165,109,233,1:DATA176,8,165,101,41,3:DATA133,101,208,3,76,14
  26. 192 DATA198,169,12,32,225,198:DATA169,143,56,229,251,133:DATA97,169,1,229,252,160:DATA4,74,102,97,136,208:DATA250,165,5,133,105,165:DATA101,201,3,208,4,169:DATA216,133,105,169,0,133:DATA254,165,97,133,253,6:DATA253,38,254,6,253,38:DATA254,101,253,133,253,144:DATA2,230,254,6,253,38
  27. 214 DATA254,6,253,38,254,6:DATA253,38,254,165,253,101:DATA6,133,253,165,254,101:DATA105,133,254,165,108,41:DATA3,133,103,165,251,41:DATA3,133,105,160,0,177:DATA253,166,101,224,1,208:DATA4,74,74,74,74,41:DATA15,10,10,5,105,74:DATA168,185,96,196,133,99:DATA165,105,41,1,10,10
  28. 236 DATA5,103,168,240,5,70:DATA99,136,208,251,70,99:DATA102,100,230,108,208,2:DATA230,109,230,102,165,102:DATA201,7,240,3,76,236:DATA196,165,100,56,106,32:DATA210,255,32,225,255,208:DATA8,169,4,32,195,255:DATA76,7,225,169,0,133:DATA102,165,106,166,107,133:DATA108,134,109,230,251,208
  29. 258 DATA2,230,252,165,251,201:DATA144,208,6,165,252,201:DATA1,240,3,76,236,196:DATA169,13,32,210,255,32:DATA139,198,165,106,201,220:DATA240,22,165,106,24,105:DATA7,133,106,144,2,230:DATA107,165,106,166,107,133:DATA108,134,109,76,228,196:DATA165,107,201,1,208,228:DATA32,204,255,169,4,32
  30. 280 DATA195,255,96,169,27,32:DATA210,255,169,16,32,210:DATA255,169,0,32,210,255:DATA169,28,76,210,255,160:DATA0,32,207,255,153,0:DATA2,200,201,13,208,245:DATA169,0,153,255,1,169:DATA13,32,210,255,165,122:DATA72,165,123,72,169,0:DATA133,122,169,2,133,123:DATA32,121,0,32,138,173
  31. 302 DATA32,155,188,165,98,5:DATA99,5,100,240,3,76:DATA128,196,104,133,123,104:DATA133,122,165,101,96,133:DATA111,169,0,133,110,133:DATA254,133,6,165,108,133:DATA105,165,109,133,103,208:DATA11,165,105,197,111,176:DATA5,169,0,133,6,96:DATA6,111,38,110,230,254:DATA165,103,197,110,240,8
  32. 324 DATA176,242,144,12,230,254:DATA176,12,165,105,197,111:DATA240,246,176,228,70,110:DATA102,111,165,105,56,229:DATA111,133,105,165,103,229:DATA110,133,103,144,26,38:DATA6,6,105,38,103,198:DATA254,208,231,96,165,105:DATA24,101,111,133,105,165:DATA103,101,110,133,103,176
  33. 344 DATA230,38,6,6,105,38:DATA103,198,254,208,231,96:DATA0,0,0,0,0,255
  34. 700 OPEN15,8,15,"R0:"+NM$+"="+NM$:INPUT#15,DS:IFDS=0THEN702
  35. 701 IFDS=62THENPRINTCHR$(13)"?DISK ERROR:";DS:FORTD=1TO2500:NEXT:F=1:GOSUB704:GOTO2
  36. 702 CLOSE15:RETURN
  37. 704 CLOSE15:OPEN15,8,15,"U;":CLOSE15:RETURN
  38.